###HEADS###################################################################
#
#  Melify Internet Toolkit (MTK) - Copyright (C) 2015  Melify LLC.
#  
#  This program is free software: you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation, either version 3 of the License, or
#  any later version.
#  
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#  
#  You should have received a copy of the GNU General Public License
#  along with this program.  If not, see http://www.gnu.org/licenses.
#
###HEADE###################################################################

namespace eval tk {}

######################################################
##### 
######################################################
m::proc -public tk::code {
} {
    Documentation goes here...
} {    
    Trace

    tk::prettify

    auto_load ${::pg}::guts

    division [style padding-left 10px] {
	h3 "<i class='fa fa-code'></i> $::pg"
    }

    put "<pre>[quote_html [info body ${::pg}::guts]]</pre>"

    put {
	<style>
	body {
	    background:#F5F5F5!important;
	}
	</style>
    }
}

# USAGE:
#    put [url "<i class='fa fa-code-fork'></i> Show Code" "[URL callback tk::code pg $::spage]" target=code]
